home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / f6fbb / oikeus.lzh / OIKEUS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-06-25  |  4KB  |  117 lines
  1. { PG construction set by OH3NWQ  turbo pascal 6.0 }
  2. { comment ca va                                   }
  3.  
  4. uses dos;
  5.  
  6. var
  7.    asematunnus, monesko_kerta, kaytto_oikeus,
  8.    tietue_nro, asematunnul, nimi             : string[64];
  9.    work1, work2                              : string[180];
  10.    mista                                     : file;
  11.    pusk                                      : array[1..180] of char;
  12.    luettu, flags                             : word;
  13.    ok, i                                     : integer;
  14.  
  15.  
  16. function laske(luku1,luku2:integer):string;
  17. begin
  18.      laske := 'ei    ';
  19.      if (luku1 and luku2)<>0 then laske := 'kyll{ ';
  20. end;
  21.  
  22.  
  23.  
  24. {  function chariksi(st:string):char;
  25.  
  26.       var   ch : char;
  27.  
  28.       begin
  29.            if st<>chr(0) then
  30.            begin
  31.                 ch:=chr(0);
  32.                 repeat
  33.                       inc(ch);
  34.                 until ch=st;
  35.                 chariksi:=ch;
  36.            end
  37.            else
  38.            begin
  39.                 chariksi:=chr(0);
  40.            end;
  41.       end;                }
  42.  
  43. function chariksi(st:string):char;
  44. begin
  45.   chariksi:=st[1];
  46. end;
  47.  
  48.  
  49. begin {MAIN}
  50.  
  51.      asematunnus   := paramstr(1);
  52.      asematunnus   := copy(asematunnus,1,(pos('-',asematunnus))-1);
  53. {     monesko_kerta := paramstr(2);
  54.       kaytto_oikeus := paramstr(3);
  55.       tietue_nro    := paramstr(4);    }
  56.  
  57.      if paramstr(5) <>'' then asematunnus  := paramstr(5);
  58.      for i := 1 to length(asematunnus) do
  59.          asematunnus[i] := upcase(asematunnus[i]);
  60.    
  61.      writeln;
  62.      writeln('K{ytt{j{n oikeudet 1992-06-25 OH3NWQ @ OH3RBR.FIN.EU');
  63.      writeln;
  64.  
  65.      asematunnul := asematunnus;
  66.      while length(asematunnul) < 7 do asematunnul := asematunnul+chr(0);
  67.  
  68.  
  69.      if fsearch('INF.SYS','C:\FBB\SYSTEM\')='' then
  70.      begin
  71.           writeln('Tiedosto INF.SYS ei ole hakemistossa C:\FBB\SYSTEM\');
  72.           writeln('En pysty tekem{{n mit{{n.');
  73.           halt(0);
  74.      end;
  75.  
  76.      assign(mista,'c:\fbb\system\inf.sys');
  77.      reset (mista,1);
  78.  
  79.      repeat
  80.            blockread(mista,pusk,sizeof(pusk),luettu);
  81.            work1 := copy(pusk,1,7);
  82.            work2 := copy(pusk,89,2);
  83.            nimi  := copy(pusk,140,13);
  84.            blockread(mista,pusk,sizeof(pusk),luettu); {tietueen pituus 360}
  85.                                                       { = 2 * 180 (pusk)  }
  86.      until ((luettu=0) or (work1=asematunnul));
  87.  
  88.      if luettu=0 then         { Ei löytynyt inf.syssistä ? }
  89.      begin
  90.      writeln(asematunnus,' ei ole t{m{n postilaatikon k{ytt{j{.');
  91.      halt(0);
  92.      end;
  93.  
  94.      nimi := copy(nimi,1,(pos(chr(0),nimi))-1);
  95.  
  96.      flags := ord(chariksi(copy(work2,1,1))) +
  97.               ord(chariksi(copy(work2,2,1))) * 256;
  98.  
  99.      writeln;
  100.      writeln('Asematunnus              : ',asematunnus);
  101.      writeln('Nimi                     : ',nimi);
  102.      writeln;
  103.      writeln('Sysop                    : ',laske(flags,8)   );
  104.      writeln('Paikallisk{ytt{j{        : ',laske(flags,2)   );
  105.      writeln('Rajoitettu k{ytt|oikeus  : ',laske(flags,64)  );
  106.      writeln('Suljettu postilaatikosta : ',laske(flags,1)   );
  107.      writeln('Postilaatikko            : ',laske(flags,16)  );
  108.      writeln;
  109.      writeln('Sivutus                  : ',laske(flags,32)  );
  110.      writeln('Kokenut k{ytt{j{         : ',laske(flags,4)   );
  111.      writeln('N{kee kaikki viestit     : ',laske(flags,256) );
  112.      writeln;
  113.      writeln('Modeemin k{ytt|oikeus    : ',laske(flags,128) );
  114.      writeln('Unprotolistausoikeus     : ',laske(flags,512) );
  115.      writeln;
  116.      halt(0);
  117. end.